Imports Microsoft.VisualBasic
Namespace BusinessLogic
    Public Class Profile
        Implements ModelLayer.IProfile


        Public Sub Save()
            DataAccess.ProfileData.Save(Me)
        End Sub

        Public Sub Load()
            DataAccess.ProfileData.Load(Me)
        End Sub

        Private _Address As String
        Public Property Address() As String Implements ModelLayer.IProfile.Address
            Get
                Return _Address
            End Get
            Set(ByVal value As String)
                _Address = value
            End Set
        End Property
        Private _City As String
        Public Property City() As String Implements ModelLayer.IProfile.City
            Get
                Return _City
            End Get
            Set(ByVal value As String)
                _City = value
            End Set
        End Property
        Private _FirstName As String
        Public Property FirstName() As String Implements ModelLayer.IProfile.FirstName
            Get
                Return _FirstName
            End Get
            Set(ByVal value As String)
                _FirstName = value
            End Set
        End Property
        Private _Gender As String
        Public Property Gender() As String Implements ModelLayer.IProfile.Gender
            Get
                Return _Gender
            End Get
            Set(ByVal value As String)
                _Gender = value
            End Set
        End Property
        Private _LastName As String
        Public Property LastName() As String Implements ModelLayer.IProfile.LastName
            Get
                Return _LastName
            End Get
            Set(ByVal value As String)
                _LastName = value
            End Set
        End Property
        Private _State As String
        Public Property State() As String Implements ModelLayer.IProfile.State
            Get
                Return _State
            End Get
            Set(ByVal value As String)
                _State = value
            End Set
        End Property
        Private _Username As String
        Public Property Username() As String Implements ModelLayer.IProfile.Username
            Get
                Return _Username
            End Get
            Set(ByVal value As String)
                _Username = value
            End Set
        End Property

        Private _Zip As String
        Public Property Zip() As String Implements ModelLayer.IProfile.Zip
            Get
                Return _Zip
            End Get
            Set(ByVal value As String)
                _Zip = value
            End Set
        End Property

        Dim _BirthDay As Date
        Public Property BirthDay() As Date Implements ModelLayer.IProfile.BirthDay
            Get
                Return _BirthDay
            End Get
            Set(ByVal value As Date)
                _BirthDay = value
            End Set
        End Property

        Dim _Email As String
        Public Property Email() As String Implements ModelLayer.IProfile.Email
            Get
                Return _Email
            End Get
            Set(ByVal value As String)
                _Email = value
            End Set
        End Property

        Dim _PhoneNumber As String
        Public Property PhoneNumber() As String Implements ModelLayer.IProfile.PhoneNumber
            Get
                Return _PhoneNumber
            End Get
            Set(ByVal value As String)
                _PhoneNumber = value
            End Set
        End Property
    End Class
End Namespace